home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / tex31 / inputs.lzh / lfonts.tex < prev    next >
Text File  |  1990-04-12  |  39KB  |  885 lines
  1. % File LFONTS - Version of 21 November 1989
  2. %
  3. % This version of LFONTS.TEX is for the CMR fonts.  It was converted
  4. % from the AMR version by David Fuchs on 18 December 1985.
  5. % And corrected on 11 Nov 1986 by Leslie Lamport.  
  6. % Last vestige of AMR fonts removed 3 Mar 89 by Leslie Lamport.
  7.  
  8. % This file needs to be customized for the fonts available at a particular
  9. % site.  There are three places where changes need to be made.  They
  10. % can be found by searching this file for the string  FONT-CUSTOMIZING.
  11. %
  12. % FONT CONVENTIONS
  13. %
  14. % A TYPESTYLE COMMAND is something like \it that defines a type style.
  15. % Each style command \xx is defined to be \protect\pxx, where 
  16. % \pxx is defined to choose the correct font for the current size.
  17. % This allows style commands to appear in 'unsafe' arguments where
  18. % protection is required.
  19. %
  20. % A SIZE COMMAND is something like \normalsize that defines a type size.
  21. % It is defined by the document style.  However, \normalsize is handled
  22. % somewhat differently because it is called so often--e.g., on every
  23. % page by the output routine.  The document style defines \@normalsize
  24. % instead of \normalsize.
  25. % 
  26. % A ONE-SIZE typestyle is one that exists only in the \normalsize size.
  27. %
  28. % A FONT-SIZE COMMAND is one that defines \textfont, \scriptfont and 
  29. % \scriptscriptfont for the font families corresponding to preloaded fonts,
  30. % as well as the typestyle commands for the preloaded fonts.  Each
  31. % font-size command has an associated @fontsize command, having the same
  32. % name except for an '@' at the front.   All font-size commands are defined 
  33. % in LFONTS.  The naming convention is that a fifteenpt font has a font-size
  34. % name \xvpt, and so on.
  35. %
  36. % Each size command \SIZE executes the command
  37. %             \@setsize\SIZE{BASELINESKIP}\FONTSIZE\@FONTSIZE
  38. % which does the following.
  39. %   0. Executes \@nomath\SIZE to issue warning if in math mode.
  40. %   1. \let \@currsize = \SIZE  
  41. %   2. Sets \strutbox to a strut of height .7 * BASELINESKIP and
  42. %      depth .3 * BASELINESKIP
  43. %
  44. %       Note: Charles Karney observed that step 2 is useless, since the
  45. %       \FONTSIZE command executed in step 4 resets \strutbox using
  46. %       the actual baselineskip, which is \baselinestretch * BASELINESKIP.
  47. %       Some day, this step may get removed.  (Note made 28 Feb 89)
  48. %
  49. %   3. Sets \baselineskip to \baselinestretch * BASELINESKIP 
  50. %      and 
  51. %   4. Calls \FONTSIZE 
  52. %   5. Executes the \@FONTSIZE command.
  53. % It should then define all the typestyle commands not defined by the font-size
  54. % command, except for the one-size type styles. A typestyle command for which
  55. % the corresponding font exists but is not preloaded is defined to expand to a
  56. % \@getfont command.  A typestyle whose font does not exist is defined to 
  57. % expand to a \@subfont command.
  58. %
  59. % A one-size typestyle whose font is not preloaded is defined to expand to
  60. % a \@onesizefont command.
  61. %
  62. % \em is defined to be \it inside an unslanted style and \rm inside a
  63. % slanted style.  An \em command in a section title will produce a \pem
  64. % command in the table of contents.
  65. %
  66.  
  67. \def\em{\protect\pem{}}
  68. \def\pem{\ifdim \fontdimen\@ne\font >\z@ \rm \else \it \fi}
  69.  
  70. \def\normalsize{\ifx\@currsize\normalsize \rm \else \@normalsize\fi}
  71.  
  72. % \load{SIZE}{STYLE} : Solves anomaly of loaded-on-demand font
  73. %    used for first time in math mode.  Give this command outside math
  74. %    mode, before formula using it for first time.
  75. \def\load#1#2{\let\@tempa\@currsize \let\@currsize\relax #1#2\@tempa}
  76.  
  77. % \newfont{\CMD}{FONT} defines \CMD to be the font FONT.
  78. %    It is equivalent to \font \CMD = FONT
  79. % \symbol{NUM} == \char NUM
  80.  
  81. \def\newfont#1#2{\@ifdefinable #1{\font #1=#2\relax}}
  82. \def\symbol#1{\char #1\relax}
  83.  
  84.  
  85.  
  86. % \@getfont \STYLE \FAM \@FONTSIZE{LOADING.INFO}
  87. %   \STYLE       = style command
  88. %   \FAM         = a control sequence defined by \newfam\FAM
  89. %   \@FONTSIZE   = the @fontsize command for the current size. 
  90. %   LOADING.INFO = information needed to load the font--e.g., 
  91. %                  cmtti10 \magstep 2
  92. %   Does the following, where \FONTNAME denotes a new unique, untypeable
  93. %   font name:
  94. %    1. Executes  \font \FONTNAME = LOADING.INFO 
  95. %    2. Appends '\textfont FAM \FONTNAME \def\STYLE{\fam \FAM \FONTNAME}' 
  96. %       to the definition of \@FONTSIZE.
  97. %    3. Executes \@FONTSIZE \STYLE.
  98. %
  99. % \@nohyphens\STYLE\@FONTSIZE
  100. %   Used right after \@getfont to set \hyphenchar of the new font to -1,
  101. %   thereby prohibiting hyphenation.  It is used with \tt fonts.
  102. %   (\@nohyphens was added on 12/18/85)
  103. %
  104. % \@subfont \STYLE \REPSTYLE 
  105. %   \STYLE, \REPSTYLE = type style commands.
  106. %   Types warning message and defines uses \REPSTYLE.
  107. %
  108. % \@onesizefont \STYLE {LOADING.INFO}
  109. %   Defines \STYLE to be a typestyle that exists only for the \normalsize
  110. %   size.  It produces the font specified by LOADING.INFO
  111. %
  112. % \@addfontinfo\@FONTSIZE{DEFS}
  113. %    Expands DEFS and adds to the definition of \@FONTSIZE. Items that should 
  114. %    not be expanded should be protected with \@prtct---except no protection
  115. %    is needed for '\def\foo', only for the contents of the definition.
  116. %
  117. % \@nomath\CS : Types a warning '\CS used in math mode' if encountered
  118. %    in math mode.
  119.  
  120. % Remove \outer from definition of \newfam
  121. \def\newfam{\alloc@8\fam\chardef\sixt@@n}
  122.  
  123. \def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
  124.    #2\setbox\strutbox\hbox{\vrule height.7\baselineskip
  125.       depth.3\baselineskip width\z@}\baselineskip\baselinestretch\baselineskip
  126.    \normalbaselineskip\baselineskip#3#4}
  127.  
  128. \newif\if@bold
  129.  
  130. \let\@prtct=\relax
  131.  
  132. \def\@addfontinfo#1#2{{\def\@prtct{\noexpand\@prtct\noexpand}\def\def{\noexpand
  133.     \def\noexpand}\xdef#1{#1#2}}}
  134.  
  135. \def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
  136.     \font \csname \string #1\string #3\endcsname #4\relax 
  137.      \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname 
  138.      \scriptfont #2\csname \string #1\string #3\endcsname 
  139.      \scriptscriptfont #2\csname \string #1\string #3\endcsname 
  140.      \def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}
  141.  
  142. \def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname 
  143.    \string #1\string #2\endcsname \m@ne}
  144.  
  145. \def\@subfont#1#2{\@warning{No \string#1\space typeface in 
  146.         this size, using \string#2}#2}
  147.  
  148. \def\@onesizefont#1#2{\expandafter\newfam\csname fm\string#1\endcsname
  149.   \global\expandafter\font\csname ft\string#1\endcsname #2\relax
  150.   \gdef#1{\ifx \@currsize\normalsize \@ftfam#1\else
  151.   \@warning{Typeface \string#1\space available only in 
  152.   \string\normalsize, using \string\rm}\gdef #1{\ifx \@currsize\normalsize 
  153.   \textfont\@fontfam#1 \scriptfont\@fontfam#1 \scriptscriptfont
  154.   \@fontfam#1\@ftfam#1\else \rm\fi}#1\fi}#1}
  155.  
  156. \def\@ftfam#1{\fam\csname fm\string#1\endcsname\csname ft\string#1\endcsname}
  157.  
  158. \def\@nomath#1{\ifmmode \@warning{\string#1\space in math mode.}\fi}
  159. \def\@nomathbold{\ifmmode \@warning{\string\mathbold\space in math mode.}\fi}
  160.  
  161. % The following definitions save token space.  E.g., using \@height 
  162. % instead of height saves 5 tokens at the cost in time of one macro 
  163. % expansion.
  164.  
  165. \def\@height{height}
  166. \def\@depth{depth}
  167. \def\@width{width}
  168.  
  169. \def\@magscale#1{ scaled \magstep #1}
  170. \def\@halfmag{ scaled \magstephalf}
  171. \def\@ptscale#1{ scaled #100}
  172.  
  173.  
  174. %% FONT-CUSTOMIZING:  The following \font commands define the
  175. %% preloaded LaTeX fonts.  Font names should be changed to cause
  176. %% different fonts to be loaded in place of these particular AMR fonts.
  177. %% \font commands should be added or deleted to change which fonts
  178. %% are preloaded.
  179.  
  180. % five point
  181.  \font\fivrm  = cmr5               % roman
  182.  \font\fivmi  = cmmi5              % math italic
  183.     \skewchar\fivmi ='177          %  for placement of accents
  184. %\font\fivmib = cmmib10  \@ptscale5 % bold math italic
  185.  \font\fivsy  = cmsy5              % math symbols
  186.     \skewchar\fivsy ='60           %   for placement of math accents
  187. %\font\fivsyb = cmbsy10 \@ptscale5 % bold math symbols
  188. %\font\fivit  = cmti7   scaled 714 % text italic
  189. %\font\fivsl  = cmsl10  \@ptscale5 % slanted
  190. %\font\fivbf  = cmbx7   scaled 714 % extended bold 
  191. %\font\fivbfs = cmbxsl10\@ptscale5 % extended bold slanted
  192. %\font\fivtt  = cmtt10  \@ptscale5 % typewriter
  193. %\font\fivtti = cmitt10 \@ptscale5 % ital